home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 016 / spintest.arc / SPINTEST.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-06-30  |  2.4 KB  |  36 lines
  1. 10 DEFINT A-Z: DIM D(500): KEY OFF: CLS: PRINT " Gibson Research": LOCATE 1,61
  2. 20 PRINT "PaperWare Converter" : FOR Z = 1 TO 80 : PRINT CHR$(205); : NEXT
  3. 30 READ F$ : READ FL : LOCATE 4,20 : PRINT "Checking the DATA for: ";F$
  4. 40 IF X=FL THEN 80 ELSE READ N$ : N=VAL("&H"+N$) : T=T+N : C=C+1
  5. 50 IF C<>15 THEN X=X+1 : D(X)=N : GOTO 40
  6. 60 IF T MOD 256 THEN PRINT : PRINT "An error is present in line:";1010+LN :END
  7. 70 LN=LN+10 : T=0 : C=0 : GOTO 40
  8. 80 PRINT : PRINT "All DATA Statements are OKAY! ... now creating ";F$ : PRINT
  9. 90 OPEN F$ AS #1 LEN=1 : FIELD #1,1 AS DT$ : FOR X = 1 TO FL
  10. 100 LSET DT$=CHR$(D(X)) : PUT #1 : NEXT : CLOSE ALL
  11. 110 PRINT "You now have the new command ";F$;" in your directory." : SYSTEM
  12. 120 '-------------------------------------------------------------------------
  13. 1000 DATA   "SPINTEST.COM", 305
  14. 1010 DATA   FC, BC, 31, 0A, BA,   BB, 01, B4, 09, CD,   21, B4, 08, B2, 7E
  15. 1020 DATA   80, CD, 13, BA, 21,   02, 72, 52, 80, E1,   3F, 88, 0E, B5, 14
  16. 1030 DATA   01, BE, D3, 00, B0,   01, E8, 49, 00, B4,   00, CD, 1A, 52, 9F
  17. 1040 DATA   A0, B5, 01, E8, 3E,   00, B4, 00, CD, 1A,   58, 2B, C2, 79, 2B
  18. 1050 DATA   02, F7, D8, 01, 06,   B7, 01, 4E, 75, DE,   A1, B7, 01, B1, C5
  19. 1060 DATA   06, D3, E8, A3, B7,   01, 33, D2, BF, D6,   01, E8, 38, 00, 29
  20. 1070 DATA   A1, B3, 01, F7, 36,   B7, 01, F7, 26, B5,   01, BF, FE, 01, 35
  21. 1080 DATA   E8, 27, 00, BA, CC,   01, B4, 09, CD, 21,   CD, 20, B4, 02, 1C
  22. 1090 DATA   8C, CB, 81, C3, A4,   10, 81, E3, 00, F0,   8E, C3, 33, DB, FE
  23. 1100 DATA   B9, 01, 00, BA, 80,   00, CD, 13, BA, 21,   02, 72, DD, C3, 3D
  24. 1110 DATA   B9, 0A, 00, 50, 8B,   C2, 33, D2, F7, F1,   5B, 50, 8B, C3, BA
  25. 1120 DATA   F7, F1, 80, C2, 30,   4F, 80, 3D, 2C, 74,   FA, 88, 15, 5A, 09
  26. 1130 DATA   83, FA, 00, 75, E2,   3D, 00, 00, 75, DD,   C3, 00, 78, 00, 62
  27. 1140 DATA   00, F8, FF, 00, F0,   0D, 0A, 53, 70, 69,   6E, 54, 65, 73, 3C
  28. 1150 DATA   74, 69, 6E, 67, 2E,   2E, 2E, 24, 0D, 0A,   0A, 20, 20, 20, 1F
  29. 1160 DATA   20, 20, 20, 20, 20,   3A, 20, 72, 65, 76,   6F, 6C, 75, 74, F5
  30. 1170 DATA   69, 6F, 6E, 73, 20,   74, 6F, 20, 72, 65,   61, 64, 20, 61, 07
  31. 1180 DATA   20, 74, 72, 61, 63,   6B, 2C, 0D, 0A, 20,   20, 20, 2C, 20, DC
  32. 1190 DATA   20, 20, 20, 3A, 20,   62, 79, 74, 65, 73,   20, 74, 72, 61, B8
  33. 1200 DATA   6E, 73, 66, 65, 72,   72, 65, 64, 20, 70,   65, 72, 20, 73, AD
  34. 1210 DATA   65, 63, 6F, 6E, 64,   2E, 0D, 0A, 24, 53,   79, 73, 74, 65, 76
  35. 1220 DATA   6D, 20, 45, 72, 72,   6F, 72, 2E, 0D, 0A,   24, 00
  36.